* lisp/subr.el (read-key): Don't let the prompt linger (bug#22714)

diff --git a/lisp/subr.el b/lisp/subr.el
index dde76916230a1cdc0cc7135ebcbf9b6884b53be4..cbcc27baad118324d5bac4045a0ed02c2d77c99e 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2086,6 +2086,10 @@ some sort of escape sequence, the ambiguity is resolved via `read-key-delay'."
                 (aref keys 1)
               key)))
       (cancel-timer timer)
+      ;; For some reason, `read-key(-sequence)' leaves the prompt in the echo
+      ;; area, whereas `read-event' seems to empty it just before returning
+      ;; (bug#22714).  So, let's mimick the behavior of `read-event'.
+      (message nil)
       (use-global-map old-global-map))))
 
 (defvar read-passwd-map